home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / SHELL3.LIT < prev    next >
Text File  |  1990-01-13  |  954b  |  17 lines

  1. *[SHELL3.LIT]*****************************************************************
  2. * Description: Removes support for shelling to chk integrity/convert         *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB3.BAS                                              *
  5. * Selection Option: SHELL = OFF                                              *
  6. * Additional files: None                                                     *
  7. ******************************************************************************
  8. 20705 SUB UpdtUpload (ZCategoryName$(1),ZCategoryCode$(1), LinesInDesc) STATIC
  9.       IF ZGetExtDesc THEN _
  10.          GOTO 20723
  11.       GOSUB 20734
  12.       CALL TimeRemain (MinsRemaining)                                ' DA111103
  13.       IF ZPrivateDoor THEN _
  14.          WasX! = ZUpldTimeFactor! * ZWasQ! _
  15.       ELSE WasX! = ZUpldTimeFactor! * (ZSecsUsedSession! - ZWasQ!)   ' DA111102
  16. 20708
  17.